perm filename MSS12.F4[12,LCS] blob sn#091418 filedate 1974-03-12 generic text, type T, neo UTF8
00100		SUBROUTINE MSS12
00200		COMMON INV(12),IR(12),N(12),J(13,13),ISCAL(12),IS2(12),
00300		1 INP2(72),INP(72),NRW
00400		1,IC(6),ISQ(25,25),NAME(10),INOT(49),JA(12)
00500		K=2
00600		L=2
00700		DO 1 M=1,24
00800		INP(MM)=J(K,L)
00900		IF(M.GT.12)GO TO 2
01000		K=K+1
01100		IF(K.LE.12)GO TO 1
01200		K=2
01300		GO TO 1
01400	2	L=L+1
01500	1	CONTINUE
01600		END
01700	C  JUST BEGINNING OF IDEA!!!!